home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / miff.e < prev    next >
Text File  |  1999-11-29  |  483b  |  29 lines
  1.  
  2. OBJECT miff OF nmIList
  3.    PRIVATE
  4.    value
  5.    miffs:PTR TO nmIList
  6. ENDOBJECT
  7.  
  8. PROC get(elist=NIL) OF miff
  9.    DEF elen
  10.    DEF elcopy:PTR TO LONG
  11.    DEF a
  12.    DEF m:PTR TO miff
  13.    IF elist = NIL THEN RETURN self
  14.    elen := ListLen(elist)
  15.    IF (elen < 1) THEN RETURN self
  16.    elcpoy := List(elen)
  17.    ListCopy(elcopy, elist)
  18.    FOR a := 1 TO elen-1
  19.       elcopy[a-1] := elcopy[a]
  20.    ENDFOR
  21.    SetList(elcopy, elen-1)
  22.    m := self.miffs.find(elcopy[0])
  23.    IF m = NIL THEN RETURN NIL
  24.  
  25.  
  26.  
  27.  
  28.  
  29.